home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-170 dbase 10 for windows / 1.ima / SAMPLES.PAK / DLLSAMP.PRG < prev    next >
Encoding:
Text File  |  1993-07-26  |  1.5 KB  |  45 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Dllsamp.prg
  3. *
  4. *  WRITTEN BY:   Borland Late Night Crew
  5. *
  6. *  DATE:         5/93
  7. *
  8. *  UPDATED:      6/30/93
  9. *
  10. *  VERSION:      Alpha α
  11. *
  12. *  DESCRIPTION:  This program shows how you could access Windows functions
  13. *                from Bladerunner.  All you have to do is declare the
  14. *                function you want to use as an extern before you call it.
  15. *                Bladerunner allows you to use CWORD,CLONG,CPTR, and CVOID
  16. *                for the return type or parameters of external functions.
  17. *
  18. *  PARAMETERS:   none
  19. *
  20. *  CALLS:        BWCCMessagebox(), Getfocus()  && Windows functions
  21. *
  22. *  USAGE:        DO Dllsamp
  23. *
  24. *
  25. *
  26. *******************************************************************************
  27.  
  28. extern cword BWCCMessagebox(cword,cptr,cptr,cword) bwcc.exe
  29.                                                           && brings up a
  30.                                                           && Borland dialog box
  31.  
  32. extern cword getfocus()  user.exe     && returns the handle of the window
  33.                                       && currently in focus
  34.  
  35. * parameter 1 -- current window in focus
  36. * parameter 2 -- caption of the dialog box
  37. * parameter 3 -- the message in the dialog box
  38. * parameter 4 -- dialog box style
  39.  
  40. ? BWCCMessagebox(getfocus(),"Hello ! ", "BWCCMessageBox() called from dBASE",17)
  41.  
  42.  
  43. **************************** End of Dllsamp.prg *******************************
  44.  
  45.